home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / text / dtp / SetTabs102.lha / SetTabs102.rexx < prev   
OS/2 REXX Batch file  |  1996-09-25  |  2KB  |  95 lines
  1. /*-----------------------------------*/
  2. /* $VER: SetTabs V1.02 (25 Sep 1996) */
  3. /* ©1996 Michael Merkel              */
  4. /*-----------------------------------*/
  5.  
  6. OPTIONS RESULTS
  7.  
  8. /* Make sure rexx support is opened */
  9. IF ~SHOW('L','rexxsupport.library') THEN
  10.    CALL ADDLIB('rexxsupport.library',0,-30)
  11. IF ~SHOW('L','softlogik:libs/slarexxsupport.library') THEN
  12.    CALL ADDLIB('softlogik:libs/slarexxsupport.library',0,-30)
  13. ADDRESS 'PAGESTREAM'
  14.  
  15. 'GETCURSOR TYPE objtype'
  16. if RC>0 | objtype='TEXTOBJ' then
  17.     call DOERRORREQUESTER
  18.  
  19. measure  = 'pt'
  20. tabnum   = 10
  21. tabdist  = '1cm'
  22. firsttab = '1cm'
  23.  
  24. call DOREQUESTER
  25. if ergebnis = cancelhandler THEN EXIT
  26.  
  27. delta = p2d(tabdist,measure)
  28. first = p2d(firsttab,measure)
  29.  
  30. /* ---------------------------------------------------------------- */
  31.  
  32. 'REFRESH OFF'
  33.  
  34. 'SELECTTEXT ALL'
  35.  
  36. placestring = ''
  37. do num = 0 to tabnum-1
  38.     pos = first + num*delta
  39.     placestring = placestring' LEFT 'pos''measure
  40. end
  41.  
  42. 'SETTABRULER 'placestring
  43.  
  44. call CLEANUP(1)
  45.  
  46. DOREQUESTER:
  47.     'ALLOCAREXXREQUESTER "SetTabs V1.02 - ©1996 Michael Merkel" 320 100'
  48.      reqhandle = RESULT
  49.     'ADDAREXXGADGET 'reqhandle' EXIT 10  80 70 LABEL "_Ok"'
  50.      okhandler = RESULT
  51.     'ADDAREXXGADGET 'reqhandle' EXIT 240 80 70 LABEL "_Cancel"'
  52.      cancelhandler = RESULT
  53.  
  54.     'ADDAREXXGADGET 'reqhandle' STRING 250 10 50 STRING "'tabnum'" LABEL "place how many tabulators:  "'
  55.      tabnum_gadget = RESULT
  56.     'ADDAREXXGADGET 'reqhandle' STRING 250 30 50 STRING "'tabdist'" LABEL "distance between tabulators:"'
  57.      tabdist_gadget = RESULT
  58.     'ADDAREXXGADGET 'reqhandle' STRING 250 50 50 STRING "'firsttab'" LABEL "position of first tabulator:"'
  59.      firsttab_gadget = RESULT
  60.  
  61.     'DOAREXXREQUESTER 'reqhandle
  62.      ergebnis = RESULT
  63.  
  64.     'GETAREXXGADGET 'reqhandle' 'tabnum_gadget' STRING'
  65.      tabnum = RESULT
  66.     'GETAREXXGADGET 'reqhandle' 'tabdist_gadget' STRING'
  67.      tabdist = RESULT
  68.     'GETAREXXGADGET 'reqhandle' 'firsttab_gadget' STRING'
  69.      firsttab = RESULT
  70.  
  71.     'FREEAREXXREQUESTER 'reqhandle
  72. RETURN
  73.  
  74. DOERRORREQUESTER:
  75.     say 'Error: Not in textbox/textframe!'
  76.  
  77.     'ALLOCAREXXREQUESTER "Error!" 390 50'
  78.      reqhandle = RESULT
  79.     'ADDAREXXGADGET 'reqhandle' EXIT 160 30 70 LABEL "_Ok"'
  80.      dummy = RESULT
  81.  
  82.     'ADDAREXXGADGET 'reqhandle' TEXT 10 10 370 STRING "Please place cursor in a textbox or textframe!"'
  83.  
  84.     'DOAREXXREQUESTER 'reqhandle
  85.      dummy = RESULT
  86.  
  87.     'FREEAREXXREQUESTER 'reqhandle
  88.     exit
  89. RETURN
  90.  
  91. CLEANUP:
  92.     'REFRESH ON'
  93.     'REFRESHWINDOW'
  94. EXIT
  95.